home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / ds31.zip / DOORSORC.INT < prev    next >
Text File  |  1990-11-04  |  4KB  |  72 lines
  1. DECLARE SUB CheckCarrier (CarrierFlag)
  2. DECLARE SUB EchoChr (WD$)
  3. DECLARE SUB ExtendedCode (A$)
  4. DECLARE SUB WaitForEndSend ()
  5. DECLARE SUB BackSpace (WD$)
  6. DECLARE SUB BeepSpeaker ()
  7. DECLARE SUB CalcSpaces (SpacesNeeded)
  8. DECLARE SUB GetPort (WD$)
  9. DECLARE SUB CheckInBuffer (CharsWaiting!)
  10. DECLARE SUB OpenPort ()
  11. DECLARE SUB PutPort (WD$)
  12. DECLARE SUB ScrClr (AWD$, ClrNu!)
  13. DECLARE SUB NL (How.Many.Times!)
  14. DECLARE SUB Send (WD$, Bell!, Enter!, ColorUse!)
  15. DECLARE SUB Incomm (WD$, SendEnter!, LimitField!, ColorUse!)
  16. DECLARE SUB AllTrun (WD$)
  17. DECLARE SUB ANSIMusic (Music$, Music)
  18. DECLARE SUB BackSpaceOver ()
  19. DECLARE SUB Center (WD$)
  20. DECLARE SUB ChkKeyboard (Anyc, AWD$)
  21. DECLARE SUB ClrScrn ()
  22. DECLARE SUB ColorEasy (WD$, FORE, SendEnter)
  23. DECLARE FUNCTION DayOfWeek ()
  24. DECLARE SUB DoorBusy ()
  25. DECLARE SUB ErrorLevelSet (Error.Level%)
  26. DECLARE SUB ExitDoor ()
  27. DECLARE SUB ExitPCB12 ()
  28. DECLARE SUB ExitPCB14 ()
  29. DECLARE FUNCTION FileExist (File.Name.Check$)
  30. DECLARE SUB GetTime (Hours, Minutes, Seconds, SinceMid#)
  31. DECLARE SUB HighScores (Score, PROGNAME$)
  32. DECLARE SUB InitDoor ()
  33. DECLARE SUB InitPCB12 ()
  34. DECLARE SUB InitPCB14 ()
  35. DECLARE SUB MenuManager (Menu$(), CenterIt, TextClr, How.Many.Bars, Select$, Slct, Barnumber)
  36. DECLARE SUB MoveCursor (X, Y)
  37. DECLARE SUB Parser (Searchfor$, Searchin$, ParArray$(), ErrCode)
  38. DECLARE FUNCTION RandNum (Low, High)
  39. DECLARE SUB ReadUsers (ErrCode)
  40. DECLARE SUB ReadUsersSys (ErrCode)
  41. DECLARE SUB ScriptCMD ()
  42. DECLARE SUB ScrUpdate ()
  43. DECLARE SUB Sorter (ParArray$(), HowManyToSort)
  44. DECLARE SUB SysopPage ()
  45. DECLARE SUB TimeConvert (Hours, Minutes, NT$)
  46. DECLARE SUB TimeCredit (TS)
  47. DECLARE SUB Translate (FORE, BACK, T$)
  48. DECLARE SUB ViewFile (FILENAME$, ChkIt, MoreP, ExitP)
  49. DECLARE SUB WaitASec (How.Long.To.Wait)
  50. DECLARE SUB Windows (ULR, ULC, LRR, LRC, FORE, BACK, TTFORE, TTBACK, BORDER, SHADOW, Text2$())
  51. DECLARE SUB WriteUsers (ErrCode)
  52. COMMON SHARED WD$, AWD$, ARG$, SYSDPATH$, BBSNAME$, SYSOPNM$, CallName$, BAUD&, TIMELEFT, CommPort$, PROGNAME$, RELEASE$, FIRST$, Last$, ANSI, SOSL$, TWE$, Y1, Y2, Y3, Y4, Y5, Y6, Y7, TML, I1$, I2$, O1$, O2$, OUT.OF.TIME, Yes, No
  53. COMMON SHARED MSR, Clr.Array$(), Exit.Dor.1$, Exit.Dor.2$, USERF$, USERL$, Time.Left, Caps, CommOnly, I3$, Page.Bell, Caller.Alarm, Sysop.Next, Hang.Up, User.Record, NETWORK, TABLE$, Display.Toggle, Printer.Toggle, BusyFlag, UserFile$
  54. COMMON SHARED City.State$, PassWord$, Business.Phone$, Voice.Phone$, Last.Date.On$, Last.Logon.Time$, Expert.Mode$, Protocol.Type$, Last.Dir.Date$, Security.Level$, Times.On$, Page.Length$, Uploads$, Parity, Filter, BusyFile$
  55. COMMON SHARED Downloads$, Daily.Download.Bytes$, User.Comment$, Sysop.Comment$, Elasped.Time$, Subcription.Reg$, Subcription.Expire$, Area.Last.In$, Area.Reg$, Expired.Area$, User.Msg.To.Scan$, TimeCred, SysFirst$, SysLast$, CommPort
  56. COMMON SHARED Total.Download.Bytes$, Total.Upload.Bytes$, Delete.Flag$, Last.Read$(), Last.Clr.Used, NTH1$, NTH2$, NTH3$, EchoKey, No.Enter.Send, Exit.Dor.Clr1, Exit.Dor.Clr2, ClrNu, Hotkey, File.Missing$, PCBVersion, BBSType$, Area.From$
  57. COMMON SHARED Black, Blue, Green, Cyan, Red, Magenta, Brown, White, Gray, HiBlue, HiGreen, HiCyan, HiRed, HiMagenta, Yellow, HiWhite, NODE, Tabspace, Sysop, Blink$, NORMAL$, Underline$, BlinkText, UnderlineText, Not.Around$, Param$
  58. '
  59. '
  60. '        Door Source  - Copyrighted 1988,1989, 1990 - Written by Todd Miller
  61. '        Version 3.1  - Computer City, USA
  62. '
  63. '     ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHER
  64. '     PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!
  65. '
  66.   
  67.    DIM Last.Read$(40)
  68.    CALL InitDoor
  69.  
  70. '                   Door Source 3.1 init completed!
  71.  
  72.